Fortran 子程序

program main
  call message()
  ...
  stop
end program
subroutine message()
  ...
  return
end subroutine
! 变量不相干！